home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 31 / Tiger_Disk_031_1996-10_Tiger-Crew-Disk_de_Side_B.d64 / und was nun... (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  1KB  |  33 lines
  1. 333 poke53280,.:poke53281,.:printchr$(147)chr$(8);:    forc=1to33:poke646,c
  2. 336 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][145]                    [148][148][157][157][157][157][157][157]":
  3. 339 :print"[157]     [146][157]     [157]     [146][157]     [157]     [146][157]     [157]     [146][157]     [157]     [146][157]";
  4. 342 poke53281,peek(646):next :poke56325,1:print"[129][145][145]";;
  5. 345 print" und was nun? [146] [148][148][144]":fori=0to23: print"[144][146]":next:print"[154]"
  6. 348 s=54272:form=0to6:readx::pokes+m,x:next:poke54296,15
  7. 351 poke54284,87:pokes+4,17:pokes+11,33:pokes+18,129:k$="[184][223][169][223][169][223][169][223][169][223][169][223][169][223][169][184]"
  8. 354 poke56325,0:print"";:print"[144][145][145][145][145]"k$
  9. 357 poke54296,15:pokes+4,81:pokes+4,129:printk$
  10. 360 poke53281,.:print"[146][145][145][145][145]"k$:poke56325,1
  11. 363 fori=0to25:poke211,i:poke214,0:poke646,i/9:printk$
  12. 366 poke54296,15:pokes+4,81:poke4,32:printk$
  13. 368 print""k$:poke646,3:print""k$:poke56325,2
  14. 372 poke54284,87:pokes+4,17:pokes+11,33:pokes+18,129:
  15. 375 poke211,40-i:poke214,0:sys58732:sys46374:sys59749:
  16. 378 print"[129][145][145][145]"k$::next
  17. 381 :forc=2to14:poke646,c:print"":forz=1to100:next
  18. 384 poke56325,58:forz=1to50:next:poke199,1
  19. 387 print"[147]                                        ";
  20. 390 print"         [218][218][218][218][218] [218]   [218][160][218][218][218][218]  [218][218][218][218][218]        ";:
  21. 393 print"         [218]     [218][218]  [218] [218]   [218] [218][160][160]          ";
  22. 396 print"         [218][218][218]   [218][160][218][160][218] [218][160][160][160][218][160][218][218][218]          ";
  23. 399 print"         [218][160][160][160][160][160][218][160][160][218][218][160][218][160][160][160][218][160][218]            ";
  24. 402 print"         [218][218][218][218][218] [218][160][160][218][218][160][218][218][218][218]  [218][218][218][218][218]        ";
  25. 405 print"                                        ";:next:poke199,0:
  26. 411 data8,20,0,186,8,255,49:goto 417
  27. 414 rem" (w)   "
  28. 417 s=54272:poke54296,15:fory=20to40step16:pokes+1,y:forc=100to103step.4:pokes+5,c
  29. 420 forz=1to65step4*(c/y):pokes+15,z:nextz:pokes+4,49:pokes+6,13*16+15:pokes+4,129
  30. 423 pokes+4,49:nextc:pokes+4,17:pokes+0,33:pokes+4,7:nexty:pokes+4,129:print"[147]ciao
  31. 426 [129]l[178]33[164]129[169].101011:[151]s[170]4,l:[130]:[153][163]32)"pokelukian":
  32. 429 [151]54296,0:[151]56325,58:[129]z[178]1[164]1000:[130]:[158]58253:[162]
  33.